home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / rascal.arc / LC.RAS < prev    next >
Text File  |  1980-01-01  |  640b  |  26 lines
  1. 'Sample Rascal program to count the lines in an ASCII file.
  2.  
  3. PROCEDURE MAIN
  4.     ON ERROR GOTO CHECK.FOR.EOF
  5.  
  6.     INPUT "File Name"; FILE.NAME$
  7.     OPEN FILE.NAME$ FOR INPUT AS #1
  8.     LINE.COUNT = 0 : DONE.SW = 0
  9.     REPEAT
  10.         LINE INPUT #1, L$
  11.         LINE.COUNT = LINE.COUNT+1
  12.     UNTIL DONE.SW = 1
  13.     PRINT "There are";LINE.COUNT-1;"lines in ";FILE.NAME$
  14. ENDPROC
  15.  
  16. CHECK.FOR.EOF|
  17.     ERROR.CODE = ERR : ERROR.LINE = ERL
  18.     IF ERROR.CODE = 62
  19.         DONE.SW = 1
  20.         RESUME NEXT
  21.     ELSE
  22.         PRINT "BASIC error";ERROR.CODE;"at";ERROR.LINE
  23.         STOP 'Immediately halt program
  24.     ENDIF
  25. END
  26.